Compiler/AST interpreter: Difference between revisions
Content added Content deleted
| Line 2,554: | Line 2,554: | ||
write (outp, '(A)', advance = 'no') val1%str_val |
write (outp, '(A)', advance = 'no') val1%str_val |
||
case (v_Nil) |
case (v_Nil) |
||
write (outp, '("(no value)")') |
write (outp, '("(no value)")', advance = 'no') |
||
case default |
case default |
||
error stop |
error stop |
||