* setting: Make "&say" return True.

sorear · Jul 19, 2010 · c607ffc · c607ffc
1 parent f23f3aa
commit c607ffc
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/setting b/setting
@@ -254,7 +254,9 @@ sub infix:<< != >>($l,$r) { Q:CgOp {
 sub say($str) { Q:CgOp {
     (prog (rawscall Console.WriteLine
             (unbox String (fetch (methodcall (scopedlex $str) Str))))
-          (null Variable))
+          (null Variable)
+          (box Bool (bool 1))
+    )
 } }
 
 sub infix:<=> { Q:CgOp { (prog (assign (pos 0) (pos 1)) (pos 0)) } }