procgen  Diff

Differences From Artifact [26ba00c622]:

• File lib/bot.scm — part of check-in [eda537ae1e] at 2019-03-26 03:18:28 on branch trunk — mroe udptaes (user: lexi, size: 1997) [annotate] [blame] [check-ins using]

To Artifact [851e9817dd]:

• File lib/bot.scm — part of check-in [6822b7d006] at 2019-03-30 03:45:34 on branch trunk — add libs (user: lexi, size: 1996) [annotate] [blame] [check-ins using]

    22     22     (define (nest-case pair)
    23     23   	(cons (list (car pair))
    24     24   		  (cdr pair)))
    25     25   
    26     26     (define (wrap pat) 
    27     27   	(if (eq? (cdr pat) '()) ;then
    28     28   		pat
    29         -		; else
           29  +	; else
    30     30   		(list (cons 'string-append pat))))
    31     31   
    32     32     (let ([branches (map wrap patterns)])
    33     33   	(@one-of nest-case branches)))
    34     34   
    35     35   
    36     36   ; exports