[cl-backends] small hacks for running CORE

sorear · Mar 6, 2011 · 5969e9b · 5969e9b
1 parent d85b4f0
commit 5969e9b
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/cl-backend/backend.lisp b/cl-backend/backend.lisp
@@ -328,7 +328,7 @@
 
 (defun nam-bif_mul (a b) (* (FETCH a) (FETCH b)))
 
-(defun nam-bif_divide (a b) (/ (FETCH a) (FETCH b)))
+(defun nam-bif_divide (a b) (if (equal b 0) 666 (/ (FETCH a) (FETCH b))))
 
 (defun nam-bif_numgt (a b) (> (FETCH a) (FETCH b)))
 (defun nam-bif_numlt (a b) (< (FETCH a) (FETCH b)))
@@ -341,6 +341,11 @@
 
 (defun p6-assign (left right) (STORE left right))
 
+; HACK
+(defun nam-treader_stdin () 'treader_stdin)
+; HACK
+(defun nam-getargv () 'getargv)
+
 (defun wrap-for-eval (compiled-unit)
   `(let ((|&infix:<~>| #'p6-concat)
          (|&say| #'p6-say)