Hi Bill.

There's a small oversight near the bottom of snd-16/CM_patterns.scm.
Here's a patch to get the repeater pattern working:

*** /home/andersvi/site/cm-sys/snd-16/CM_patterns.scm~	2015-12-08 12:43:38.000000000 +0100
--- /home/andersvi/site/cm-sys/snd-16/CM_patterns.scm	2015-12-09 11:29:27.533922198 +0100
***************
*** 1329,1335 ****
  		(let ((obj (%alloc-pattern))
  		      (flags 0)
  		      )
! 		  (initialize-pattern obj (list) for stop
  				      flags
  				      0
  				      1
--- 1329,1335 ----
  		(let ((obj (%alloc-pattern))
  		      (flags 0)
  		      )
! 		  (initialize-pattern obj (list) for limit
  				      flags
  				      0
  				      1
***************
*** 1365,1367 ****
--- 1365,1369 ----
  	  (pattern-data-set! obj (cdr data))
  	  (car data)))))
  
+ ;; (define aaa (make-repeater (make-weighting '(a b c d)) :for 2))
+ ;; (next aaa #t)
Cheers,

-anders
_______________________________________________
Cmdist mailing list
[email protected]
https://cm-mail.stanford.edu/mailman/listinfo/cmdist

Reply via email to