Parent Directory | Revision Log | Patch
revision 1.24 by mdj, Tue Mar 11 14:50:08 2003 UTC | revision 1.25 by mdj, Tue Mar 11 19:55:00 2003 UTC | |
---|---|---|
# | Line 1306 | Line 1306 |
1306 | can-go-in-now)))) | can-go-in-now)))) |
1307 | (loop | (loop |
1308 | (filter (lambda (x) (not (eq? x choice))) | (filter (lambda (x) (not (eq? x choice))) |
1309 | elements) | elements) |
1310 | constraints | constraints |
1311 | (append result (list choice))))))))) | (append result (list choice))))))))) |
1312 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |