[Wisp-cvs] wisp/src/builtin assembler.wisp,1.156,1.157 dictbase.wisp,1.235,1.236

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

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

Modified Files:
	assembler.wisp dictbase.wisp 
Log Message:
Dropped native procedure headers.

Index: assembler.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/assembler.wisp,v
retrieving revision 1.156
retrieving revision 1.157
diff -u -d -r1.156 -r1.157
--- assembler.wisp	4 Sep 2002 14:40:13 -0000	1.156
+++ assembler.wisp	7 Sep 2002 21:50:36 -0000	1.157
@@ -112,11 +112,12 @@
             (map (lambda (name)
                    `(cons ,name ',name))
                  (quote
-                   (* + - / /= < <= = > >= apply assq assv catch
-                    char->integer char<=? char<? char=? char>=? char>?
-                    circular-list collect cons dict-ref eighth eq? eqv?
-                    fifth find find-tail for-each map memq memv ninth
-                    not null? procedure? raise seventh sixth tenth)))
+                   (* + - / /= < <= = > >= 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)
@@ -131,9 +132,7 @@
                     ddaa ddad ddd ddda dddd)))))
 
   (define (meaning proc)
-    (my rawm (or (get-raw-header-item proc 1)
-                 (and (assq proc meaningful-builtins)
-                      => cdr))
+    (my rawm (and (assq proc meaningful-builtins) => cdr)
       (cond
         ((symbol? rawm) rawm)
         ((cons? rawm) (apply list rawm))

Index: dictbase.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/dictbase.wisp,v
retrieving revision 1.235
retrieving revision 1.236
diff -u -d -r1.235 -r1.236
--- dictbase.wisp	4 Sep 2002 14:28:37 -0000	1.235
+++ dictbase.wisp	7 Sep 2002 21:50:36 -0000	1.236
@@ -223,7 +223,4 @@
       (else
         (raise 'argcount `(,d ,key . ,default-info))))))
 
-(set! (dict-ref master-dictionary
-                'get-raw-header-item)
-  (asm NN_get_raw_header_item))
 (set! (dict-ref master-dictionary 'valloc) (asm NN_valloc))