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

Finish section 4.3

Browse Source
This commit is contained in:
Felix Martin
2021-02-27 19:17:07 -05:00
parent 5067f5414c
commit 8dd54d429c
1 changed files with 2 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
ex-4_45-54.scm
View File

@@ -397,14 +397,6 @@
; nondeterministic program, we would have had to implement it as a special ; nondeterministic program, we would have had to implement it as a special
; form. This would require syntax procedures ; form. This would require syntax procedures
(define (require? exp) (tagged-list? exp 'require))
(define (require-predicate exp) (cadr exp))
; and a new clause in the dispatch in analyze
; ((require? exp) (analyze-require exp))
; as well the procedure analyze-require that handles require expressions. ; as well the procedure analyze-require that handles require expressions.
; Complete the following definition of analyze-require. ; Complete the following definition of analyze-require.
@@ -413,8 +405,8 @@
(lambda (env succeed fail) (lambda (env succeed fail)
(pproc env (pproc env
(lambda (pred-value fail2) (lambda (pred-value fail2)
(if <??> (if (not (true? pred-value))
<??> (fail2)
(succeed 'ok fail2))) (succeed 'ok fail2)))
fail)))) fail))))