[Wisp-cvs] wisp/src/builtin assembler.wisp,1.157,1.158 tostring.wisp,1.78,1.79

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

Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv4546/src/builtin

Modified Files:
	assembler.wisp tostring.wisp 
Log Message:
Gave meaning to <box>, <c16string>, <macro>, and <record-type>.

Index: assembler.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/assembler.wisp,v
retrieving revision 1.157
retrieving revision 1.158
diff -u -d -r1.157 -r1.158
--- assembler.wisp	7 Sep 2002 21:50:36 -0000	1.157
+++ assembler.wisp	11 Sep 2002 17:36:06 -0000	1.158
@@ -112,12 +112,13 @@
             (map (lambda (name)
                    `(cons ,name ',name))
                  (quote
-                   (* + - / /= < <= = > >= apply assq assv car catch
-                    cdr char->integer char<=? char<? char=? char>=?
-                    char>? circular-list collect cons dict-ref eighth
-                    eq? eqv? fifth find find-tail for-each list map
-                    memq memv ninth not null? procedure? raise seventh
-                    sixth tenth)))
+                   (* + - / /= < <= <box> <c16string> <macro>
+                    <record-type> = > >= apply assq assv car catch cdr
+                    char->integer char<=? char<? char=? char>=? char>?
+                    circular-list collect cons dict-ref eighth eq? eqv?
+                    fifth find find-tail for-each list map memq memv
+                    ninth not null? procedure? raise seventh sixth
+                    tenth)))
             (map (lambda (middle)
                    `(cons ,(string->symbol "c$,[middle]r")
                           '(serial . ,(map (lambda (middle)

Index: tostring.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/tostring.wisp,v
retrieving revision 1.78
retrieving revision 1.79
diff -u -d -r1.78 -r1.79
--- tostring.wisp	7 Sep 2002 22:00:41 -0000	1.78
+++ tostring.wisp	11 Sep 2002 17:36:06 -0000	1.79
@@ -245,9 +245,13 @@
                       (emit #\>))))
                 ((record-type? s)
                   (emit "#<record type ")
-                  (emit (stringify-address s))
-                  (emit ", slot count ")
-                  (emit (integer->string (record-type-slot-count s)))
+                  (my m (meaning s)
+                    (if m
+                      (loop (list m))
+                      (begin
+                        (emit (stringify-address s))
+                        (emit ", slot count ")
+                        (emit (integer->string (record-type-slot-count s))))))
                   (emit #\>))
                 ((box? s)
                   (if (not (check-duplicity s))