suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

oops, forgot to recur when parsing prefs

Browse Source 
original commit: 1e4c2cd6e03e0eaf863982d8cb626769ba4cbfb1
This commit is contained in:
Robby Findler 1997-04-29 19:42:54 +00:00
parent a6dbd46b1e
commit 173c7a36db
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mred/prefs.ss
View File

@ -222,8 +222,7 @@
(cond (cond
[(pair? input) [(pair? input)
(let/ec k (let/ec k
(let ([first (car input)] (let ([first (car input)])
[rest (cdr input)])
(when (pair? first) (when (pair? first)
(let ([arg1 (car first)] (let ([arg1 (car first)]
[t1 (cdr first)]) [t1 (cdr first)])
@ -233,7 +232,8 @@
(when (null? t2) (when (null? t2)
(parse-pref arg1 arg2) (parse-pref arg1 arg2)
(k #t))))))) (k #t)))))))
(err input))] (err input))
(loop (cdr input))]
[(null? input) (void)] [(null? input) (void)]
[else (err input)])))) [else (err input)]))))
(mred:debug:printf 'prefs "read user preferences")))) (mred:debug:printf 'prefs "read user preferences"))))