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

* removed all references to $code? from the code.

This commit is contained in:
Abdulaziz Ghuloum 2007-05-06 22:49:33 -04:00
parent d58f15b14c
commit 70008f2f7a
3 changed files with 7 additions and 8 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.

14
src/ikarus.code-objects.ss
View File

@ -20,22 +20,22 @@
(define code-reloc-vector (define code-reloc-vector
(lambda (x) (lambda (x)
(unless ($code? x) (error 'code-reloc-vector "~s is not a code" x)) (unless (code? x) (error 'code-reloc-vector "~s is not a code" x))
($code-reloc-vector x))) ($code-reloc-vector x)))
(define code-freevars (define code-freevars
(lambda (x) (lambda (x)
(unless ($code? x) (error 'code-closure-size "~s is not a code" x)) (unless (code? x) (error 'code-closure-size "~s is not a code" x))
($code-freevars x))) ($code-freevars x)))
(define code-size (define code-size
(lambda (x) (lambda (x)
(unless ($code? x) (error 'code-size "~s is not a code" x)) (unless (code? x) (error 'code-size "~s is not a code" x))
($code-size x))) ($code-size x)))
(define code-set! (define code-set!
(lambda (x i v) (lambda (x i v)
(unless ($code? x) (error 'code-set! "~s is not a code" x)) (unless (code? x) (error 'code-set! "~s is not a code" x))
(unless (and (fixnum? i) (unless (and (fixnum? i)
($fx>= i 0) ($fx>= i 0)
($fx< i ($code-size x))) ($fx< i ($code-size x)))
@ -48,7 +48,7 @@
(define code-ref (define code-ref
(lambda (x i) (lambda (x i)
(unless ($code? x) (error 'code-ref "~s is not a code" x)) (unless (code? x) (error 'code-ref "~s is not a code" x))
(unless (and (fixnum? i) (unless (and (fixnum? i)
($fx>= i 0) ($fx>= i 0)
($fx< i ($code-size x))) ($fx< i ($code-size x)))
@ -57,7 +57,7 @@
(define set-code-reloc-vector! (define set-code-reloc-vector!
(lambda (x v) (lambda (x v)
(unless ($code? x) (unless (code? x)
(error 'set-code-reloc-vector! "~s is not a code" x)) (error 'set-code-reloc-vector! "~s is not a code" x))
(unless (vector? v) (unless (vector? v)
(error 'set-code-reloc-vector! "~s is not a vector" v)) (error 'set-code-reloc-vector! "~s is not a vector" v))
@ -65,7 +65,7 @@
(define code->thunk (define code->thunk
(lambda (x) (lambda (x)
(unless ($code? x) (unless (code? x)
(error 'code->thunk "~s is not a a code object" x)) (error 'code->thunk "~s is not a a code object" x))
(unless ($fxzero? ($code-freevars x)) (unless ($fxzero? ($code-freevars x))
(error 'code->thunk "~s has free variables" x)) (error 'code->thunk "~s has free variables" x))

1
src/makefile.ss
View File

@ -485,7 +485,6 @@
[$set-port-output-size! $ports] [$set-port-output-size! $ports]
; (ikarus system $codes) ; (ikarus system $codes)
[$closure-code $codes] [$closure-code $codes]
[$code? $codes]
[$code->closure $codes] [$code->closure $codes]
[$code-reloc-vector $codes] [$code-reloc-vector $codes]
[$code-freevars $codes] [$code-freevars $codes]