~ chicken-core (chicken-5) e1fa21f42d146ca3befeac508ec272c1ebf34b5e

commit e1fa21f42d146ca3befeac508ec272c1ebf34b5e
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Aug 2 08:40:29 2010 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Aug 2 08:40:29 2010 -0400

    added missing NAME entry for procedure type declarations (thanks to sjamaan)

diff --git a/manual/Declarations b/manual/Declarations
index 5115695b..621de369 100644
--- a/manual/Declarations
+++ b/manual/Declarations
@@ -294,7 +294,7 @@ given here:
   
   VAL --> (or VAL1 ...)
        |  (struct NAME)
-       |  (procedure (VAL1 ... [#!optional VALOPT1 ...] [#!rest [VAL]]) . RESULTS)
+       |  (procedure [NAME] (VAL1 ... [#!optional VALOPT1 ...] [#!rest [VAL]]) . RESULTS)
        |  BASIC
        |  deprecated
   
diff --git a/scrutinizer.scm b/scrutinizer.scm
index 06ba52a3..097a1e55 100644
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -45,7 +45,7 @@
 ;   SPEC = * | (VAL1 ...)
 ;   VAL = (or VAL1 ...)
 ;       | (struct NAME)
-;       | (procedure (VAL1 ... [#!optional VALOPT1 ...] [#!rest [VAL | values]]) . RESULTS)
+;       | (procedure [NAME] (VAL1 ... [#!optional VALOPT1 ...] [#!rest [VAL | values]]) . RESULTS)
 ;       | BASIC
 ;       | deprecated
 ;   BASIC = * | string | symbol | char | number | boolean | list | pair |