comment out eval redefinition

2014-02-19 01:59:05 +09:00 · 2014-02-19 01:59:05 +09:00 · f17f2f3a77
parent a1a0aff657
commit f17f2f3a77
1 changed files with 3 additions and 0 deletions
--- a/piclib/built-in.scm
+++ b/piclib/built-in.scm
@ -763,11 +763,14 @@
 	     (not (eq? (vector-ref x 0)
 		       record-marker)))))

+  #|
+  ;; (scheme eval) is not provided for now
  (define eval
    (let ((real-eval eval))
      (lambda (exp env)
 	((real-eval `(lambda (vector?) ,exp))
 	 vector?))))
+  |#

  (define (record? x)
    (and (real-vector? x)