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

* removed the "primitive?" and "primitive-ref" primitives.

This commit is contained in:
Abdulaziz Ghuloum 2007-05-04 03:31:57 -04:00
parent b74108f21c
commit 14a947e7f9
3 changed files with 14 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

28
src/libcore.ss
View File

@ -336,20 +336,20 @@ reference-implementation:
(primitive-set! 'symbol? (lambda (x) (symbol? x)))
(primitive-set! 'primitive?
(lambda (x)
(unless (symbol? x)
(error 'primitive? "~s is not a symbol" x))
(procedure? (primitive-ref x))))
(primitive-set! 'primitive-ref
(lambda (x)
(unless (symbol? x)
(error 'primitive-ref "~s is not a symbol" x))
(let ([v (primitive-ref x)])
(unless (procedure? v)
(error 'primitive-ref "~s is not a primitive" x))
v)))
;(primitive-set! 'primitive?
; (lambda (x)
; (unless (symbol? x)
; (error 'primitive? "~s is not a symbol" x))
; (procedure? (primitive-ref x))))
;
;(primitive-set! 'primitive-ref
; (lambda (x)
; (unless (symbol? x)
; (error 'primitive-ref "~s is not a symbol" x))
; (let ([v (primitive-ref x)])
; (unless (procedure? v)
; (error 'primitive-ref "~s is not a primitive" x))
; v)))
(primitive-set! 'primitive-set!
(lambda (x v)

2
src/library-manager.ss
View File

@ -505,8 +505,6 @@
[$make-call-with-values-procedure $make-cwv-procedure (core-prim . $make-call-with-values-procedure)]
[$make-values-procedure $make-values-procedure (core-prim . $make-values-procedure)]
[primitive-set! primitive-set!-label (core-prim . primitive-set!)]
[primitive? primitive?-label (core-prim . primitive?)]
[primitive-ref primitive-ref-label (core-prim . primitive-ref)]
[$$apply $$apply-label (core-prim . $$apply)]
[$arg-list $arg-list-label (core-prim . $arg-list)]
[$interrupted? $interrupted?-label (core-prim . $interrupted?)]