1
0
mirror of https://github.com/PDP-10/its.git synced 2026-01-13 15:27:28 +00:00

Fix parsing of floating point number.

This commit is contained in:
Lars Brinkhoff 2021-07-13 08:29:54 +02:00
parent 7ac7598edb
commit 998c9fece9

View File

@ -1,4 +1,5 @@
<NEWTYPE MCELL
LIST
'<LIST LIST
@ -500,7 +501,7 @@
<DEFINE RPT ()
<REPEAT ((I .10000000) (X 0.0000000))
<REPEAT ((I 0.10000000) (X 0.0000000))
<DISP P2 <SCALE 2><ROTX .X> <ROTY <* 1.4000000 .X>>>
<COND (<G? <SET X <+ .X .I>> 6.2830000> <RETURN FOOBAR>)>
<SLEEP 3>
@ -790,4 +791,4 @@
<MT3>
<MSPT>
<MSENE1>>