...

original commit: e089b17782493903ae3d2c882ef2c4742e4ad424

collects/framework/gui-utils.ss

@@ -15,14 +15,3 @@
       (export (unit gui-utils)))
     #f
     mred^))
-
-#|
-(require gui-utils)
-(define f (make-object frame% "frame" #f 300 600))
-(define lb (instantiate gui-utils:alphabetic-list-box% ()
-             (label #f)
-             (parent f)
-             (callback void)
-             (choices '("abcz" "b" "c" "d" "e" "f" "xbcdefghi"))))
-(send f show #t)
-|#

collects/framework/private/main.ss

@@ -62,7 +62,7 @@
 		    (hash-table-put! hash-table (add-#% x) 'lambda)
 		    (hash-table-put! hash-table x 'lambda))
 		  '(
-                    instantiate
+                    instantiate super-instantiate
                     lambda let let* letrec recur
                      with-syntax
                      module