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

* ikarus.records.ss now exports its prims.

This commit is contained in:
Abdulaziz Ghuloum 2007-05-05 02:17:55 -04:00
parent 7799fb3238
commit 0471c6b3fe
3 changed files with 21 additions and 24 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.

43
src/librecord.ss → src/ikarus.records.ss
View File

@ -1,10 +1,26 @@
(library (ikarus records) (library (ikarus records)
(export) (export
(import (scheme)) make-record-type record-type-name record-type-symbol
record-type-field-names record-constructor record-predicate
record-field-accessor record-field-mutator record? record-rtd
(rename (record-rtd record-type-descriptor))
record-name record-printer record-length record-ref record-set!)
(import
(except (ikarus)
make-record-type record-type-name record-type-symbol
record-type-field-names record-constructor record-predicate
record-field-accessor record-field-mutator record? record-rtd
record-type-descriptor record-name record-printer record-length
record-ref record-set!)
(only (scheme) $record? $record-rtd $base-rtd $record-ref
$record-set! $record $make-record $car $cdr $fxadd1
$fx< $fx= $fx+ $fx>=
set-top-level-value! top-level-value top-level-bound?))
(let ()
(define rtd? (define rtd?
(lambda (x) (lambda (x)
@ -238,24 +254,6 @@
(error 'record-set! "index ~s is out of range for ~s" i x)) (error 'record-set! "index ~s is out of range for ~s" i x))
($record-set! x i v)))) ($record-set! x i v))))
(primitive-set! 'make-record-type make-record-type)
(primitive-set! 'record-type-name record-type-name)
(primitive-set! 'record-type-symbol record-type-symbol)
(primitive-set! 'record-type-field-names record-type-field-names)
(primitive-set! 'record-constructor record-constructor)
(primitive-set! 'record-predicate record-predicate)
(primitive-set! 'record-field-accessor record-field-accessor)
(primitive-set! 'record-field-mutator record-field-mutator)
(primitive-set! 'record? record?)
(primitive-set! 'record-rtd record-rtd)
(primitive-set! 'record-type-descriptor record-rtd)
(primitive-set! 'record-name record-name)
(primitive-set! 'record-printer record-printer)
(primitive-set! 'record-length record-length)
(primitive-set! 'record-ref record-ref)
(primitive-set! 'record-set! record-set!)
(set-rtd-fields! $base-rtd '(name fields length printer symbol)) (set-rtd-fields! $base-rtd '(name fields length printer symbol))
(set-rtd-name! $base-rtd "base-rtd") (set-rtd-name! $base-rtd "base-rtd")
(set-rtd-printer! $base-rtd (set-rtd-printer! $base-rtd
@ -265,5 +263,4 @@
(display "#<" p) (display "#<" p)
(display (rtd-name x) p) (display (rtd-name x) p)
(display " rtd>" p))) (display " rtd>" p)))
)
))

2
src/makefile.ss
View File

@ -24,7 +24,7 @@
'("ikarus.handlers.ss" '("ikarus.handlers.ss"
"ikarus.control.ss" "ikarus.control.ss"
"ikarus.collect.ss" "ikarus.collect.ss"
"librecord.ss" "ikarus.records.ss"
"libcxr.ss" "libcxr.ss"
"libnumerics.ss" "libnumerics.ss"
"libguardians.ss" "libguardians.ss"