Rename compile-l to compile-entry.

Author: dvanhorn

www/notes/iniquity/compile.rkt

@@ -37,15 +37,16 @@
   (match p
     [(list 'begin `(define (,fs . ,xss) ,es) ... e0)
      (let ((ds (compile-defines fs xss es))
-           (c0 (compile-l e0)))
+           (c0 (compile-entry e0)))
        `(,@c0
          ,@ds))]
-    [e (compile-l e)]))
+    [e (compile-entry e)]))
 
 ;; Expr -> Asm
-(define (compile-l e)
+;; Compile e as the entry point
+(define (compile-entry e)
   `(entry
-    ,@(compile-e e '())
+    ,@(compile-entry e '())
     ret
 
     err
@@ -330,5 +331,3 @@
     "_"
     (number->string (eq-hash-code s) 16))))
 
-
-