compiler, system: say what it is

Sigrid Solveig Haflínudóttir committed 1 year ago

Commit 63aa4991 parent 24a52042 files · +3 −5Browse files

Unified · Split

2 files

src/compiler.sl +2 −1
src/system.sl +1 −4

src/compiler.sl+2−1

@@ -1,5 +1,6 @@
1	;; code generation state, constant tables, bytecode encoding	1	;;;; built-in compiler
2		2
		3	;; code generation state, constant tables, bytecode encoding
3	(def (make-code-emitter) (vec NIL (table) 0 NIL 0))	4	(def (make-code-emitter) (vec NIL (table) 0 NIL 0))
4	(defmacro (bcode:code b) `(aref ,b 0))	5	(defmacro (bcode:code b) `(aref ,b 0))
5	(defmacro (bcode:ctable b) `(aref ,b 1))	6	(defmacro (bcode:ctable b) `(aref ,b 1))

src/system.sl+1−4

@@ -1,7 +1,4 @@
1		1	;;;; standard library
2	; StreetLISP standard library
3	; by Jeff Bezanson (C) 2009
4	; Distributed under the BSD License
5		2
6	;;; void	3	;;; void
7		4