From f99cbad38010066f015a04f0fa55bf82bd6d88f0 Mon Sep 17 00:00:00 2001
From: Greg Cooper <greg@cs.brown.edu>
Date: Fri, 16 Dec 2005 15:56:42 +0000
Subject: [PATCH] - fixed a bug in frp:apply

svn: r1626
---
 collects/frtime/mzscheme-utils.ss | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/collects/frtime/mzscheme-utils.ss b/collects/frtime/mzscheme-utils.ss
index 747c805c44..c7358cc073 100644
--- a/collects/frtime/mzscheme-utils.ss
+++ b/collects/frtime/mzscheme-utils.ss
@@ -42,7 +42,7 @@
            (rename (lib "lang-ext.ss" "frtime") undefined undefined)
            (rename (lib "lang-ext.ss" "frtime") undefined? undefined?)
 	   (lib "class.ss"))
-  
+  (require (lib "list.ss"))  
   
   (define-syntax (lifted-send stx)
     (syntax-case stx ()
@@ -181,7 +181,9 @@
       (if (behavior? args)
           (super-lift
            (lambda (args)
-             (apply apply fn args))
+             (if (and (list? args) (list? (last-pair args)))
+                 (apply apply fn args)
+                 undefined))
            args)
           (apply apply fn args))))
   #|