From 989a17ede47a5bca1fdd3b87d395e223f4d56274 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Fri, 26 Sep 2008 20:40:11 +0000 Subject: [PATCH] added master svn: r11884 --- .../overridden-collects/fake-teachpack/htdp/guess.ss | 3 --- .../overridden-collects/fake-teachpack/htdp/master.ss | 11 +++++++++++ 2 files changed, 11 insertions(+), 3 deletions(-) create mode 100644 collects/handin-server/overridden-collects/fake-teachpack/htdp/master.ss diff --git a/collects/handin-server/overridden-collects/fake-teachpack/htdp/guess.ss b/collects/handin-server/overridden-collects/fake-teachpack/htdp/guess.ss index 757c4a8144..cb91164b02 100644 --- a/collects/handin-server/overridden-collects/fake-teachpack/htdp/guess.ss +++ b/collects/handin-server/overridden-collects/fake-teachpack/htdp/guess.ss @@ -11,9 +11,6 @@ (define-higher-order-primitive guess-with-gui-list guess-with-gui-list/proc (_ check-guess-list)) -(define (convert guesses:vec) - (void)) - (define (guess-with-gui/proc cg) (check-proc 'guess-with-gui cg 2 'first "two arguments") (void)) diff --git a/collects/handin-server/overridden-collects/fake-teachpack/htdp/master.ss b/collects/handin-server/overridden-collects/fake-teachpack/htdp/master.ss new file mode 100644 index 0000000000..e951b5380b --- /dev/null +++ b/collects/handin-server/overridden-collects/fake-teachpack/htdp/master.ss @@ -0,0 +1,11 @@ +#lang scheme/gui + +(require htdp/error lang/prim) + +(provide master) + +(define-higher-order-primitive master master/proc (compare-guess)) + +(define (master/proc cg) + (check-proc 'master cg 4 'first 'arguments) + (void))