./tools.ss:20: ;; disassemble->word ./tools.ss:123: (unless (zero? w) (error 'disassemble-residue "~s" w)) ./tools.ss:143:;; (define (disassemble->word binary address wordsize ./asm-lambda-tx.ss:113:;; ((disassemble-bind #'(((aaa 1) (bbb 2)) ((ccc 3) (ddd 4)))) #'123)