shithub: sl

Info  •  Files  •  Log  •  Branches

compiler, system: say what it is

--- a/src/compiler.sl

+++ b/src/compiler.sl

@@ -1,5 +1,6 @@

-;; code generation state, constant tables, bytecode encoding

+;;;; built-in compiler

+;; code generation state, constant tables, bytecode encoding

 (def (make-code-emitter) (vec NIL (table) 0 NIL 0))

 (defmacro (bcode:code   b) `(aref ,b 0))

 (defmacro (bcode:ctable b) `(aref ,b 1))

--- a/src/system.sl

+++ b/src/system.sl

@@ -1,7 +1,4 @@

-

-; StreetLISP standard library

-; by Jeff Bezanson (C) 2009

-; Distributed under the BSD License

+;;;; standard library

 ;;; void