diff options
Diffstat (limited to 'src/boot/ast.boot')
| -rw-r--r-- | src/boot/ast.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/boot/ast.boot b/src/boot/ast.boot index a8018467..d461bcd3 100644 --- a/src/boot/ast.boot +++ b/src/boot/ast.boot @@ -1393,7 +1393,7 @@ genGCLnativeTranslation(op,s,t,op') == '"object" gclArgInC(x,a) == x in $NativeSimpleDataTypes => a - x = "string" => strconc(a,'"->st.st__self") + x = "string" => a -- GCL takes responsability for the conversion [.,[.,y]] := x y = "char" => strconc(a,'"->st.st__self") y = "byte" => strconc(a,'"->ust.ust__self") |