Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv31529/src/builtin
Modified Files:
dictbase.wisp records.wisp stdenv.wisp
Log Message:
Defined |new| dispatchers for |<c16string>|, |<box>|, and |<collector>|.
Index: dictbase.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/dictbase.wisp,v
retrieving revision 1.251
retrieving revision 1.252
diff -u -d -r1.251 -r1.252
--- dictbase.wisp 18 Sep 2002 21:08:01 -0000 1.251
+++ dictbase.wisp 18 Sep 2002 21:09:00 -0000 1.252
@@ -120,6 +120,7 @@
(local mk-e2f (asm NN_mk_e2f))
(local modulo (asm NN_modulo))
(local native? (asm NN_native_huh))
+(local new (asm NN_new))
(local raise (asm NN_raise))
(local rational->cons (asm NN_rat2cons))
(local record-type-discriminator (asm NN_record_type_discriminator))
Index: records.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/records.wisp,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- records.wisp 18 Sep 2002 21:05:08 -0000 1.6
+++ records.wisp 18 Sep 2002 21:09:00 -0000 1.7
@@ -10,7 +10,8 @@
(my data ((asm NN_pr_make_record_type) slot-count)
(let ((record-type (car data))
(ref-hook #f)
- (length-hook #f))
+ (length-hook #f)
+ (new-hook #f))
(while (not (null? hooks))
(my (hook-name hook-generator . rest-hooks) hooks
(set! hooks rest-hooks)
@@ -21,11 +22,17 @@
((length) (if length-hook
(raise 'duplicate-length-hook hook-generator)
(set! length-hook (apply hook-generator data))))
+ ((new) (if new-hook
+ (raise 'duplicate-new-hook hook-generator)
+ (set! new-hook (apply hook-generator data))))
(else (raise 'record-hook-name? hook-name)))))
(if ref-hook
(set! ((asm NN_pr_record_type_ref_slot) record-type)
ref-hook))
(if length-hook
(set! ((asm NN_pr_record_type_length_slot) record-type)
- length-hook)))
+ length-hook))
+ (if new-hook
+ (set! ((asm NN_pr_record_type_new_slot) record-type)
+ new-hook)))
data))
Index: stdenv.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/stdenv.wisp,v
retrieving revision 1.366
retrieving revision 1.367
diff -u -d -r1.366 -r1.367
--- stdenv.wisp 18 Sep 2002 21:06:31 -0000 1.366
+++ stdenv.wisp 18 Sep 2002 21:09:00 -0000 1.367
@@ -61,7 +61,7 @@
make-counter make-dict make-instance make-record-type
make-string make-vector map meaning member memq memv
metacode modify-bit module module-ref modulo my-port
- native? negative? newline ninth not null-list? null?
+ native? negative? new newline ninth not null-list? null?
number->string number? numerator nybble? nyp? odd?
open-input-file open-output-file opt or order->dict
output-port? pack-be-integer pack-le-integer
|
