Skip to content

Commit

Permalink
Changes in syntaxtree.c
Browse files Browse the repository at this point in the history
Co-Authored-By: sebasguts <gutsche@mathematik.uni-siegen.de>
  • Loading branch information
fingolfin and sebasguts authored Mar 31, 2019
1 parent 131300e commit 1de6c33
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/syntaxtree.c
Original file line number Diff line number Diff line change
Expand Up @@ -368,10 +368,10 @@ static Obj SyntaxTreeFloatEager(Obj result, Expr expr)
{
Obj value = GET_VALUE_FROM_CURRENT_BODY(READ_EXPR(expr, 0));
Obj string = GET_VALUE_FROM_CURRENT_BODY(READ_EXPR(expr, 1));
UInt char_val = (UInt)READ_EXPR(expr, 2);
UChar chr = (UChar)READ_EXPR(expr, 2);
AssPRec(result, RNamName("value"), value);
AssPRec(result, RNamName("string"), string);
AssPRec(result, RNamName("mark"), ObjsChar[char_val]);
AssPRec(result, RNamName("mark"), ObjsChar[chr]);
return result;
}

Expand Down

0 comments on commit 1de6c33

Please sign in to comment.