/[guile]/guile/guile-core/oop/goops.scm
ViewVC logotype

Diff of /guile/guile-core/oop/goops.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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    

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26