Miroirs/rforth
1
0
Fork 0
mirror of https://github.com/russolsen/rforth synced 2024-12-26 09:58:27 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Changed . to not print a newline, which is what it (doesnt) do in forth

Browse source
This commit is contained in:
russ 2010-09-10 06:48:09 -04:00
parent f11b1c5438
commit 834406e9c1
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/rforth.rb
View file

@ -60,7 +60,7 @@ class RForth
b = @stack.pop b = @stack.pop
@stack << b / a @stack << b / a
end end
d.word('.') { @s_out.print( "#{@stack.pop}\n" ) } d.word('.') { @s_out.print( @stack.pop ) }
d.word('.S') { @s_out.print( "#{@stack}\n" ) } d.word('.S') { @s_out.print( "#{@stack}\n" ) }
d.word('.D') { pp @dictionary } d.word('.D') { pp @dictionary }
d.word('cr') { @s_out.puts } d.word('cr') { @s_out.puts }