Permalink
Browse files

Fixed a bug

  • Loading branch information...
1 parent 3c8424b commit 45e86049e7ac6657a6225a438bf6819a8d52a74d nineties committed Mar 25, 2013
Showing with 12 additions and 4 deletions.
  1. +5 −1 lib/amber/syntax.ab
  2. +5 −1 rowl1/rowl1-compile.rlc
  3. +2 −2 rowl1/rowl1-packrat.rlc
View
@@ -2,7 +2,7 @@ Assign{Qualified{Syntax,comment}, Qualified{Syntax,shell_style_comment}}
# Copyright (C) 2010 nineties
#
-# $Id: syntax.ab 2013-03-24 18:57:01 nineties $
+# $Id: syntax.ab 2013-03-25 14:09:21 nineties $
# Syntax definition of the Amber language.
# This file will be loaded first.
@@ -460,4 +460,8 @@ module Syntax {
primary_expr ::= "%" nospace(decimal) { `shell_outputs[!$1] }
| "%" { `shell_outputs[0] }
}
+
+ enable_shell_syntax(): {
+ primary_expr = primary_expr | Shell::Syntax::primary_expr
+ }
}
View
@@ -2,7 +2,7 @@
; rowl - 1st generation
; Copyright (C) 2010 nineties
;
-; $Id: rowl1-compile.rlc 2013-03-25 13:09:14 nineties $
+; $Id: rowl1-compile.rlc 2013-03-25 14:06:02 nineties $
;
(import "rlvm-compile")
@@ -629,6 +629,10 @@
(byterun (lookup_func mod Compile) asm mod expr)
))
+(export fun call0 (sym) (
+ (return (byterun (lookup_func current_mod sym)))
+ ))
+
(export fun call1 (sym arg0) (
(return (byterun (lookup_func current_mod sym) arg0))
))
View
@@ -2,7 +2,7 @@
; rowl - 1st generation
; Copyright (C) 2010 nineties
;
-; $Id: rowl1-packrat.rlc 2013-03-14 02:01:23 nineties $
+; $Id: rowl1-packrat.rlc 2013-03-25 14:05:45 nineties $
;
(import "rlvm-compile")
@@ -1974,7 +1974,7 @@
(extern object syntax)
(export fun enable_shell_syntax () (
- (open_module syntax (to_sym "Shell"))
+ (call0 (qualified "Syntax" (to_sym "enable_shell_syntax")))
))
(export fun init_parser_funcs () (

0 comments on commit 45e8604

Please sign in to comment.