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))
|
