From acb04ad3ed898ad1f2b0edec340c6dcbee0e1525 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Mon, 15 Mar 2010 12:57:38 -0700
Subject: [PATCH] debugger: give a descriptive error for *-in-c-type-name

---
 basis/debugger/debugger.factor | 23 +++++++++++++----------
 1 file changed, 13 insertions(+), 10 deletions(-)

diff --git a/basis/debugger/debugger.factor b/basis/debugger/debugger.factor
index 3b75c1e7a0..b7ecc5acec 100644
--- a/basis/debugger/debugger.factor
+++ b/basis/debugger/debugger.factor
@@ -1,15 +1,15 @@
 ! Copyright (C) 2004, 2010 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: slots alien.c-types arrays definitions generic hashtables
-summary io kernel math namespaces make prettyprint prettyprint.config
-sequences assocs sequences.private strings io.styles io.pathnames
-vectors words system splitting math.parser classes.mixin classes.tuple
-continuations continuations.private combinators generic.math
-classes.builtin classes compiler.units generic.standard generic.single
-vocabs init kernel.private io.encodings accessors math.order destructors
-source-files parser classes.tuple.parser effects.parser lexer
-generic.parser strings.parser vocabs.loader vocabs.parser
-source-files.errors ;
+USING: slots alien.c-types alien.parser arrays definitions generic
+hashtables summary io kernel math namespaces make prettyprint
+prettyprint.config sequences assocs sequences.private strings
+io.styles io.pathnames vectors words system splitting math.parser
+classes.mixin classes.tuple continuations continuations.private
+combinators generic.math classes.builtin classes compiler.units
+generic.standard generic.single vocabs init kernel.private
+io.encodings accessors math.order destructors source-files parser
+classes.tuple.parser effects.parser lexer generic.parser strings.parser
+vocabs.loader vocabs.parser source-files.errors ;
 IN: debugger
 
 GENERIC: error-help ( error -- topic )
@@ -349,6 +349,9 @@ M: stack-effect-omits-dashes summary drop "Stack effect must contain “--”" ;
 
 M: no-c-type summary name>> unparse "“" "” is not a C type" surround ;
 
+M: *-in-c-type-name summary
+    name>> "Cannot define a C type “" "” that ends with an asterisk (*)" surround ;
+
 {
     { [ os windows? ] [ "debugger.windows" require ] }
     { [ os unix? ] [ "debugger.unix" require ] }