|
|
|
@ -962,9 +962,9 @@ |
|
|
|
(testing "Test main 02 agregar-ptocoma" |
|
|
|
(testing "Test main 02 agregar-ptocoma" |
|
|
|
(is (= |
|
|
|
(is (= |
|
|
|
(agregar-ptocoma |
|
|
|
(agregar-ptocoma |
|
|
|
(list 'fn 'main (symbol "(") (symbol ")") 'if 'x '< '0 (symbol "{") 'x '= '- 'x (symbol ";") 'x_cambio '= 'true (symbol ";") (symbol "}") 'print! (symbol "(") "y: " (symbol ")") (symbol ";") (symbol "}") ) |
|
|
|
(list 'fn 'main (symbol "(") (symbol ")") (symbol "{") 'if 'x '< '0 (symbol "{") 'x '= '- 'x (symbol ";") 'x_cambio '= 'true (symbol ";") (symbol "}") 'print! (symbol "(") "y: " (symbol ")") (symbol ";") (symbol "}") ) |
|
|
|
) |
|
|
|
) |
|
|
|
(list 'fn 'main (symbol "(") (symbol ")") 'if 'x '< '0 (symbol "{") 'x '= '- 'x (symbol ";") 'x_cambio '= 'true (symbol ";") (symbol "}") (symbol ";") 'print! (symbol "(") "y: " (symbol ")") (symbol ";") (symbol "}") ) |
|
|
|
(list 'fn 'main (symbol "(") (symbol ")") (symbol "{") 'if 'x '< '0 (symbol "{") 'x '= '- 'x (symbol ";") 'x_cambio '= 'true (symbol ";") (symbol "}") (symbol ";") 'print! (symbol "(") "y: " (symbol ")") (symbol ";") (symbol "}") ) |
|
|
|
)) |
|
|
|
)) |
|
|
|
) |
|
|
|
) |
|
|
|
) |
|
|
|
) |
|
|
|
|