Fixes under Parrot master, it now compiles and the REPL works

Signed-off-by: Vasily Chekalkin <bacek@bacek.com>
parrot · Jan 4, 2011 · 992ef73 · 992ef73
1 parent f1b1628
commit 992ef73
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 8 deletions.
diff --git a/src/builtins/globals.pir b/src/builtins/globals.pir
@@ -48,7 +48,7 @@ src/builtins/globals.pir - initialize miscellaneous global variables
     #set_hll_global '$stdin', $P5
     #set_hll_global '$>', $P5
 
-    $P6 = interp.'stdout_handle'(.PIO_STDOUT_FILENO)
+    $P6 = interp.'stdout_handle'()
     set_hll_global '$stdout', $P6
 
     #$P7 = interp.'stderr_handle'(.PIO_STDERR_FILENO)

diff --git a/src/builtins/say.pir b/src/builtins/say.pir
@@ -39,7 +39,7 @@ builtin functions for Ruby.
 .sub 'readline'
     #.param pmc sep              :optional #record sep
     $P0 = getinterp
-    $P0 = $P0.'stdin_handle'(.PIO_STDIN_FILENO)
+    $P0 = $P0.'stdin_handle'()
     $S0 = $P0.'readline'('')
     .return($S0)
 .end

diff --git a/src/parser/actions.pm b/src/parser/actions.pm
@@ -885,28 +885,28 @@ sub is_a_sub($name) {
     our @?BLOCK;
     if $?BLOCK.symbol(~$name) {
         if defined($?BLOCK.symbol(~$name)<arity>) {
-            return(1);
+            return 1;
         }
         else {
-            return(0);
+            return0;
         }
     }
     for @?BLOCK {
         if $_ {
             my $sym_table := $_.symbol(~$name);
             if $sym_table {
                 if defined($sym_table<arity>) {
-                    return(1);
+                    return 1;
                 }
                 else {
-                    return(0);
+                    return 0;
                 }
             }
         }
     }
     my $lex := lex_lookup($name);
-    if $lex && ~lookup_class($lex) eq 'Sub' { return(1); }
-    return(0);
+    if $lex && ~lookup_class($lex) eq 'Sub' { return 1; }
+    return 0;
 }
 
 # Local Variables: