Commits

Tikhon Jelvis  committed a2791a9

Fixed a bug in the definition of pop-int!.

  • Participants
  • Parent commits ed649f6
  • Branches new-stack

Comments (0)

Files changed (1)

File ArrayForth/forth_base.rkt

   (let ([one (pop-cells! #:getter getter)]
         [two (pop-cells! #:getter getter)])
     `(,one ,two)))
-(define (pop-int! #:getter [getter state-stack] signed? [pos 0])
+(define (pop-int! #:getter [getter state-stack] signed?)
   (integer-bytes->integer (pop-cells! #:getter getter) signed? #t))
 
 ; Debugging