Delimit defprimitive section

This commit is contained in:
Justin Ethier 2015-02-24 13:23:48 -05:00
parent 8e40505015
commit 1d3968664f

View file

@ -1058,6 +1058,7 @@
(close-output-port fp)))
(define (autogen:defprimitives fp)
(display "/* This section is auto-generated via --autogen */\n" fp)
(for-each
(lambda (p)
(display
@ -1068,7 +1069,8 @@
(symbol->string p)
" */\n")
fp))
*primitives*))
*primitives*)
(display "/* -------------------------------------------- */\n" fp))
;; List of primitive procedures
(define (autogen:primitive-procedures fp)