From 211f51d5df201e25d1924ef1c535ff9c5890afa3 Mon Sep 17 00:00:00 2001 From: Erik Date: Fri, 4 Mar 2016 11:55:20 +0100 Subject: [PATCH] println* --- lisp/core.carp | 2 +- out/project.carp | 2 ++ 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/core.carp b/lisp/core.carp index be03ee66..d22d0247 100644 --- a/lisp/core.carp +++ b/lisp/core.carp @@ -256,7 +256,7 @@ (register-builtin "printret" '((:fn () :int)) :void) ;; A better println! -(defn printlng [x] +(defn println* [x] (println (ref (str x)))) (register-builtin "platform" '() :int) diff --git a/out/project.carp b/out/project.carp index 623f933c..353599db 100644 --- a/out/project.carp +++ b/out/project.carp @@ -147,6 +147,8 @@ (defn mapping-strings [] (map exclaim [(string-copy "hej") (string-copy "san") (string-copy "svej") (string-copy "san")])) + + (defn even-i? [x] (if (even? x) 1