Tried out writing a conditional compilation function.

core/Macros.carp

@@ -71,3 +71,8 @@
 
 (defmacro swap! [x y]
   (list 'let (array 'tmp y) (list 'do (list 'set! &y x) (list 'set! &x 'tmp))))
+
+(defdynamic mac-only [:rest forms]
+  (if (= "darwin" (os))
+    forms
+    ()))

examples/temp.carp

@@ -1,6 +1,9 @@
 (project-set! printAST "true")
 (macro-log "hej")
 
+(mac-only
+ (macro-log "You're using macOS!"))
+
 ;; (use System)
 ;; (use String)
 ;; (use Char)

src/Eval.hs

@@ -55,6 +55,8 @@ eval env xobj =
                            (XObj (Num IntTy aNum) _ _, XObj (Num IntTy bNum) _ _) ->
                              if (round aNum :: Int) == (round bNum :: Int)
                              then Right trueXObj else Right falseXObj
+                           (XObj (Str a) _ _, XObj (Str b) _ _) ->
+                             if a == b then Right trueXObj else Right falseXObj
                            _ ->
                              Left (EvalError ("Can't compare " ++ pretty okA ++ " with " ++ pretty okB))
         [XObj (Sym (SymPath [] "count")) _ _, target] ->