diff --git a/SYMBOL/ALGOL.alg_m b/SYMBOL/ALGOL.alg_m index 0805da3..93c46f1 100644 --- a/SYMBOL/ALGOL.alg_m +++ b/SYMBOL/ALGOL.alg_m @@ -5117,7 +5117,7 @@ COMMENT SET UP CODE FOR RELATIONAL OPERATOR TO BE 06284600 THEN BEGIN 06366000 COMMENT OUR BAD GO TO IS JUMPING OUTSIDE OF ALL PROCEDURES; 06367000 EMIT(0); 06368000 - EMIT(TLEVEL); END 06369000 + EMITL(TLEVEL); END 06369000 ELSE BEGIN 06370000 EMITN(512); 06371000 EMITV(513); COMMENT PICK UP BLOCKCTR AT ENTRY 06372000 diff --git a/tools/xem/ALGOLXEM.alg_m b/tools/xem/ALGOLXEM.alg_m index 7763eb7..54303f4 100644 --- a/tools/xem/ALGOLXEM.alg_m +++ b/tools/xem/ALGOLXEM.alg_m @@ -8734,7 +8734,7 @@ EXIT: 39315000 BEGIN 39460000=06366000= COMMENT OUR BAD GO TO IS JUMPING OUTSIDE OF ALL PROCEDURES; 39465000=06367000= EMIT(0); 39470000=06368000= - EMIT(TLEVEL); 39475000=06369000= + EMITL(TLEVEL); 39475000=06369000= END 39480000=06370000= ELSE 39485000=06370000= BEGIN 39490000=06370000=