From 7065aa70d28392eebb96254c7c290fdebea39954 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 4 Jun 2016 16:32:15 -0700 Subject: [PATCH] alien: fix some bugs. --- language/alien/parser/parser-tests.factor | 2 +- language/alien/prettyprint/prettyprint.factor | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/language/alien/parser/parser-tests.factor b/language/alien/parser/parser-tests.factor index dcc35edb77..8500520771 100644 --- a/language/alien/parser/parser-tests.factor +++ b/language/alien/parser/parser-tests.factor @@ -117,5 +117,5 @@ TYPEDEF: int alien-parser-test-int ; ! reasonably unique name... ! Redefinitions { } [ - [ c-type: hi TYPEDEF: void* hi ] with-compilation-unit + [ c-type: hi TYPEDEF: void* hi ; ] with-compilation-unit ] unit-test diff --git a/language/alien/prettyprint/prettyprint.factor b/language/alien/prettyprint/prettyprint.factor index c6c7a2a7a3..6c056560f4 100644 --- a/language/alien/prettyprint/prettyprint.factor +++ b/language/alien/prettyprint/prettyprint.factor @@ -52,6 +52,7 @@ M: typedef-word synopsis* [ definer. ] [ "c-type" word-prop pprint-c-type ] [ pprint-word ] + [ drop ";" text ] } cleave ; : pprint-function-arg ( type name -- )