felixm/SICP
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Implement 5.19

Browse Source
This commit is contained in:
Felix Martin
2021-03-31 21:16:22 -04:00
parent bb870cbdf1
commit ea9b0dd752
2 changed files with 56 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
ex-5_14-19.scm
View File

@@ -74,4 +74,27 @@
(display "\nex-5.19 - breakpoint\n")
(define (set-breakpoint machine label n)
((machine 'set-breakpoint) label n))
(define (cancel-breakpoint machine label n)
((machine 'cancel-breakpoint) label n))
(define (proceed machine)
(machine 'proceed))
(set-register-contents! factorial-machine 'n 6)
(set-register-contents! factorial-machine 'val 0)
(set-breakpoint factorial-machine 'fact-loop 1)
(start factorial-machine)
(assert (get-register-contents factorial-machine 'n) 6)
(proceed factorial-machine)
(assert (get-register-contents factorial-machine 'n) 5)
(proceed factorial-machine)
(cancel-breakpoint factorial-machine 'fact-loop 1)
(assert (get-register-contents factorial-machine 'n) 4)
(proceed factorial-machine)
(assert (get-register-contents factorial-machine 'val) 720)