diff --git a/src/examples/forbble.pbl b/src/examples/forbble.pbl index 1e389b9..088a50e 100755 --- a/src/examples/forbble.pbl +++ b/src/examples/forbble.pbl @@ -1,11 +1,5 @@ #!/usr/bin/pl -; Print with a newline -(def prnl (fn (_txt) ( - (prn _txt) - (pch 10) - ))) - ; Initialize an empty stack (def stack ()) diff --git a/src/examples/lib.pbl b/src/examples/lib.pbl index e85b374..b1e9aca 100644 --- a/src/examples/lib.pbl +++ b/src/examples/lib.pbl @@ -1,4 +1,10 @@ #!/usr/bin/pl +; Print with newline +(def prnl (fn (_txt) ( + (prn _txt) + (pch 10) + ))) + ; Exponentiate a^b (def exp (fn (a b) (if (= b 0) diff --git a/src/examples/repl.pbl b/src/examples/repl.pbl index 0970ce9..0445130 100755 --- a/src/examples/repl.pbl +++ b/src/examples/repl.pbl @@ -3,10 +3,8 @@ (prn "pebblisp::> ") (def input (inp 0)) (if (= input "q") () ( - (prn (eval input)) - (pch 10) - (repl 0) - )) + (prnl (eval input)) + (repl 0))) ))) (repl 0)