[Wisp-cvs] wisp/src/builtin dictbase.wisp,1.251,1.252 records.wisp,1.6,1.7 stdenv.wisp,1.366,1.367

[<di...@us...>]

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