Minoru
unread,Jun 22, 2026, 1:06:18 AM (8 days ago) Jun 22Sign in to reply to author
Sign in to forward
You do not have permission to delete messages in this group
Either email addresses are anonymous for this group or you need the view member email addresses permission to view the original message
to Extempore
Hi Ben,
It's a small thing though, I need to change the code to stop infinite loop functions ....
;; just loop func
(define ilp
(lambda (b)
(print 1 ':)
(callback (*metro* (+ b (* .5 1))) 'ilp (+ b 1))
))
(ilp (*metro* 'get-beat 1))
(define ilp (lambda () ))
;; ok, stop without any warning in ver 0.8.9, but ...
;; -> error, define: no body: (define ilp (lambda ()))
;; error ! it looks like that define can't work
;; so, ilp doesn't stop !
(define ilp (lambda () (+ 1)))
;; -> stop, but warning .....
;; ilp: too many arguments: ((lambda () ...) 1738) ....
(define ilp (lambda (b) (+ 1)))
;; -> ok, stop without any warning !
;; ther are more arguments ....
(define ilp2
(lambda (b c d)
(print 1 c d ':)
(callback (*metro* (+ b (* .5 1))) 'ilp2 (+ b 1) c d)
))
(ilp2 (*metro* 'get-beat 1) 2 3)
(define ilp2 (lambda (b) (+ 1)))
;; -> stop but warning as above ....
(define ilp2 (lambda (b c d) (+ 1)))
;; ok! stop and no warning ..
(define ilp2 )
;; error, not stop
;; define: no value? (define ilp2)
(define ilp2 0)
;; stop but ...
;; attempt to apply an integer 0 in (0 (9538 2 3))?
;; (define ilp2)
;; (c d)
;; (define ilp)
;; ((+ b 1))
;; (define ilp)
;; ((+ b 1))
ilp2
;; -> 0, ok though..
;; Or, the point is not define but lambda ??? or both ??
(lambda ())
;; error
;;lambda: no body? (lambda ()) ......
(lambda () (+ 1))
;; ok #<CLOSURE ...>
((lambda ()) )
;; error
;; lambda: no body? (lambda ()) .........
((lambda () (+ 1)) )
;; -> 1, ok
Of course, I accept it as it is though ...