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

no need to overwrite eval

This commit is contained in:
Yuichi Nishiwaki 2014-08-03 14:46:08 +09:00
parent e16de03b65
commit c2982a4252
1 changed files with 6 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
piclib/prelude.scm
View File

@ -380,6 +380,7 @@
;;; Record Type ;;; Record Type
(define-library (picrin record) (define-library (picrin record)
(import (scheme base) (import (scheme base)
(scheme eval)
(picrin macro)) (picrin macro))
(define record-marker (list 'record-marker)) (define record-marker (list 'record-marker))
@ -387,20 +388,11 @@
(define real-vector? vector?) (define real-vector? vector?)
(set! vector? (set! vector?
(lambda (x) (lambda (x)
(and (real-vector? x) (and (real-vector? x)
(or (= 0 (vector-length x)) (or (= 0 (vector-length x))
(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
(let ((real-eval eval))
(lambda (exp env)
((real-eval `(lambda (vector?) ,exp))
vector?))))
|#
(define (record? x) (define (record? x)
(and (real-vector? x) (and (real-vector? x)