From 0d44f44db99041ef746635ff1f72a19857672b8b Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 6 Oct 2005 15:45:07 +0000 Subject: [PATCH] fixed . typo that mzscheme now flags as a syntax error svn: r999 --- collects/mrflow/snips-and-arrows-model.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mrflow/snips-and-arrows-model.ss b/collects/mrflow/snips-and-arrows-model.ss index 6cf60a3d3c..dcf223348f 100644 --- a/collects/mrflow/snips-and-arrows-model.ss +++ b/collects/mrflow/snips-and-arrows-model.ss @@ -100,7 +100,7 @@ make-get-span-from-label-from-model-state (gui-model-state? . -> . (label? . -> . non-negative-exact-integer?))) - (for-each-source (gui-model-state? (any/c . -> . void?) . -> .void?)) + (for-each-source (gui-model-state? (any/c . -> . void?) . -> . void?)) (register-source-with-gui (gui-model-state? any/c . -> . any)) (is-source-registered? (gui-model-state? any/c . -> . boolean?))