procgen  Diff

Differences From Artifact [517500dd79]:

• File lib/bot.scm — part of check-in [ee227e70ef] at 2019-03-25 23:00:54 on branch trunk — re-add library code (user: lexi, size: 1611) [annotate] [blame] [check-ins using]

To 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]

    45     45   	; generates a function that picks and applies one of the
    46     46   	; patterns passed to it. inner patterns can be expanded
    47     47   	; with the inner macro (@)
    48     48   	(define-macro (rule . body)
    49     49   				  (let ([decl (car body)]
    50     50   						[patterns (cdr body)])
    51     51   					`(define ,decl
    52         -					   (define-macro (@ . tree) (@rewrite-patterns tree))
           52  +					   (define-macro (@ . tree) (@rewrite-patterns tree)) ;choice point
           53  +					   (define-macro (: . tree) (@rewrite-patterns (cons (list "") tree))) ;optional choice
           54  +					   (define-macro (? . tree) (@rewrite-patterns (cons (list "") (list tree)))) ;optional - TODO: rewrite
    53     55   					   ,(@rewrite-patterns patterns))))
    54         -
           56  +	; generate simple word-banks
           57  +	(define-macro (bank . body)
           58  +				  (let ([decl (car body)]
           59  +						[patterns (cdr body)])
           60  +					`(define (,decl)
           61  +							 (one-of ,@patterns))))
    55     62   	(define (pick ar)
    56     63   		(vector-ref ar (pseudo-random-integer (vector-length ar))))