1 files changed, 2 insertions, 2 deletions
diff --git a/src/emit.lisp b/src/emit.lisp
index 78a41ed..f73d9be 100644
--- a/src/emit.lisp
+++ b/src/emit.lisp
@@ -68,9 +68,9 @@ concatenated with TYPE."
       (util:format-as-binary val 5)
       (error (format nil "~a is not a valid register id!~%" val))))
 
-(defun l (l s)
+(defun l (l &optional (pos 0))
   (let ((d (util:get-label l)))
-    (- d s)))
+    (- d pos)))
 
 (defun var (s)
   (let ((pos (util:get-variable s)))