conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

comment out eval redefinition

This commit is contained in:
Yuichi Nishiwaki 2014-02-19 01:59:05 +09:00
parent a1a0aff657
commit f17f2f3a77
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
piclib/built-in.scm
View File

@ -763,11 +763,14 @@
(not (eq? (vector-ref x 0) (not (eq? (vector-ref x 0)
record-marker))))) record-marker)))))
#|
;; (scheme eval) is not provided for now
(define eval (define eval
(let ((real-eval eval)) (let ((real-eval eval))
(lambda (exp env) (lambda (exp env)
((real-eval `(lambda (vector?) ,exp)) ((real-eval `(lambda (vector?) ,exp))
vector?)))) vector?))))
|#
(define (record? x) (define (record? x)
(and (real-vector? x) (and (real-vector? x)