Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-12 23:37:38 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Clean up cruft

Browse source
This commit is contained in:
Justin Ethier 2020-12-22 17:03:37 -05:00
parent a5fb3b1b14
commit b218aacf65
2 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
scheme/base.sld
View file

@ -29,7 +29,7 @@
slot-ref slot-ref
slot-set! slot-set!
type-slot-offset type-slot-offset
record-marker2 make-record-marker
;; END records ;; END records
receive receive
abs abs
@ -1513,7 +1513,7 @@
" return_closcall1(data, k, Cyc_VOID); " " return_closcall1(data, k, Cyc_VOID); "
"(void *data, object ptr)" "(void *data, object ptr)"
" return Cyc_VOID;") " return Cyc_VOID;")
(define-c record-marker2 (define-c make-record-marker
"(void *data, int argc, closure _, object k)" "(void *data, int argc, closure _, object k)"
" return_closcall1(data, k, Cyc_RECORD_MARKER); " " return_closcall1(data, k, Cyc_RECORD_MARKER); "
"(void *data, object ptr)" "(void *data, object ptr)"
@ -1973,7 +1973,7 @@
(guard-aux reraise clause1 clause2 ...))))) (guard-aux reraise clause1 clause2 ...)))))
;; Record-type definitions ;; Record-type definitions
(define record-marker (record-marker2)) (define record-marker (make-record-marker))
(define (register-simple-type name parent field-tags) (define (register-simple-type name parent field-tags)
(vector record-marker name field-tags)) (vector record-marker name field-tags))
(define (make-type-predicate pred name) (define (make-type-predicate pred name)
@ -2105,7 +2105,7 @@
(,_define ,make (,_define ,make
(,_lambda ,make-fields (,_lambda ,make-fields
(,(rename 'vector) (,(rename 'vector)
(record-marker2) (make-record-marker)
(quote ,name) (quote ,name)
(,(rename 'vector) (,(rename 'vector)
,@make-fields)))) ,@make-fields))))

2
scheme/cyclone/cgen.sld
View file

@ -627,7 +627,7 @@
(c:code "NULL")) (c:code "NULL"))
((eq? (void) exp) ;; Poor man's (void?) ((eq? (void) exp) ;; Poor man's (void?)
(c:code "Cyc_VOID")) (c:code "Cyc_VOID"))
((eq? (record-marker2) exp) ((eq? (make-record-marker) exp)
(c:code "Cyc_RECORD_MARKER")) (c:code "Cyc_RECORD_MARKER"))
((pair? exp) ((pair? exp)
(c-compile-scalars exp use-alloca immutable)) (c-compile-scalars exp use-alloca immutable))