@ -45,11 +45,13 @@
(define (lt arr ptr) (list arr (sub1 ptr)))
(define (plus arr ptr)
(list (set-current-byte arr ptr (add1 (current-byte arr ptr)))
(list
(set-current-byte arr ptr (add1 (current-byte arr ptr)))
ptr))
(define (minus arr ptr)
(list (set-current-byte arr ptr (sub1 (current-byte arr ptr)))
(set-current-byte arr ptr (sub1 (current-byte arr ptr)))
(define (period arr ptr)
@ -44,11 +44,13 @@