Changeset 34422 in project for release/4/amb/trunk/amb-extras.scm


Ignore:
Timestamp:
08/27/17 05:58:41 (4 months ago)
Author:
kon
Message:

comments

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/amb/trunk/amb-extras.scm

    r34337 r34422  
    4141(define-syntax amb1
    4242  (syntax-rules ()
     43    ;
    4344    ((_)
    4445     ((amb-failure-continuation)) )
     46    ;
    4547    ((_ ?ls)
    4648     (amb-thunks (list-constantly ?ls)) ) ) )
     
    4850(define-syntax choose
    4951  (syntax-rules ()
     52    ;
    5053    ((_)
    5154     ((amb-failure-continuation)) )
     55    ;
    5256    ((_ ?ls)
    5357      (amb-thunks-shuffled (list-constantly ?ls) (amb-random-function)) ) ) )
Note: See TracChangeset for help on using the changeset viewer.