Initial revision

original commit: d4305bf5d53ff0b29f4f31e4eafe29ac415e6bf9
1997-12-01 18:44:39 +00:00 · 1997-12-01 18:44:39 +00:00 · 3880966c43
commit 3880966c43
parent 02971ca426
1 changed files with 10 additions and 0 deletions
--- a/collects/mred/app.ss
+++ b/collects/mred/app.ss
@ -0,0 +1,10 @@
+(unit/sig mred:application^
+  (import)
+
+  (define current-app-name (make-parameter
+			    "MrEd"
+			    (lambda (x)
+			      (unless (string? x)
+				(error 'current-app-name
+				       "the app name must be a string"))
+			      x))))