suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- fixed a bug in frp:apply

Browse Source 
svn: r1626
This commit is contained in:
Greg Cooper 2005-12-16 15:56:42 +00:00
parent 18e8530586
commit f99cbad380
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/frtime/mzscheme-utils.ss
View File

@ -42,7 +42,7 @@
(rename (lib "lang-ext.ss" "frtime") undefined undefined) (rename (lib "lang-ext.ss" "frtime") undefined undefined)
(rename (lib "lang-ext.ss" "frtime") undefined? undefined?) (rename (lib "lang-ext.ss" "frtime") undefined? undefined?)
(lib "class.ss")) (lib "class.ss"))
(require (lib "list.ss"))
(define-syntax (lifted-send stx) (define-syntax (lifted-send stx)
(syntax-case stx () (syntax-case stx ()
@ -181,7 +181,9 @@
(if (behavior? args) (if (behavior? args)
(super-lift (super-lift
(lambda (args) (lambda (args)
(apply apply fn args)) (if (and (list? args) (list? (last-pair args)))
(apply apply fn args)
undefined))
args) args)
(apply apply fn args)))) (apply apply fn args))))
#| #|