From 80454523be8b15ff4b07637d8d2a683c543b1fde Mon Sep 17 00:00:00 2001
From: Boris Shingarov <shingarov@labware.com>
Date: Tue, 16 Jul 2024 14:16:00 -0400
Subject: [PATCH] Don't zdecode internally in #addTo:

This way spec vars like return are distinguished
---
 src/Sail-Jib/Def_Enum.class.st     | 2 +-
 src/Sail-Jib/Def_Extern.class.st   | 2 +-
 src/Sail-Jib/Def_Fn.class.st       | 2 +-
 src/Sail-Jib/Def_Register.class.st | 2 +-
 src/Sail-Jib/Def_Union.class.st    | 2 +-
 src/Sail-Jib/Def_Val.class.st      | 2 +-
 6 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/Sail-Jib/Def_Enum.class.st b/src/Sail-Jib/Def_Enum.class.st
index a2b2817..81a5870 100644
--- a/src/Sail-Jib/Def_Enum.class.st
+++ b/src/Sail-Jib/Def_Enum.class.st
@@ -20,7 +20,7 @@ Def_Enum class >> inducedParser [
 Def_Enum >> addTo: aJibProgram [ 
 	aJibProgram enums
 		at: name
-		zdecode put: self
+		put: self
 ]
 
 { #category : #printing }
diff --git a/src/Sail-Jib/Def_Extern.class.st b/src/Sail-Jib/Def_Extern.class.st
index e4d5720..6f897fa 100644
--- a/src/Sail-Jib/Def_Extern.class.st
+++ b/src/Sail-Jib/Def_Extern.class.st
@@ -28,7 +28,7 @@ Def_Extern class >> inducedParser [
 Def_Extern >> addTo: aJibProgram [
 	super addTo: aJibProgram.
 	aJibProgram values
-		at: id zdecode
+		at: id
 		put: self
 ]
 
diff --git a/src/Sail-Jib/Def_Fn.class.st b/src/Sail-Jib/Def_Fn.class.st
index faf766a..4d77312 100644
--- a/src/Sail-Jib/Def_Fn.class.st
+++ b/src/Sail-Jib/Def_Fn.class.st
@@ -21,7 +21,7 @@ Def_Fn class >> inducedParser [
 { #category : #initialization }
 Def_Fn >> addTo: aJibProgram [
 	aJibProgram values
-		at: name zdecode
+		at: name
 		put: self.
 	self elaborateIn: aJibProgram
 ]
diff --git a/src/Sail-Jib/Def_Register.class.st b/src/Sail-Jib/Def_Register.class.st
index 14c82bf..890a157 100644
--- a/src/Sail-Jib/Def_Register.class.st
+++ b/src/Sail-Jib/Def_Register.class.st
@@ -21,7 +21,7 @@ Def_Register class >> inducedParser [
 { #category : #initialization }
 Def_Register >> addTo: aJibProgram [
 	aJibProgram registers
-		at: name zdecode
+		at: name
 		put: self
 ]
 
diff --git a/src/Sail-Jib/Def_Union.class.st b/src/Sail-Jib/Def_Union.class.st
index 71b53ac..249bf0e 100644
--- a/src/Sail-Jib/Def_Union.class.st
+++ b/src/Sail-Jib/Def_Union.class.st
@@ -20,7 +20,7 @@ Def_Union class >> inducedParser [
 { #category : #initialization }
 Def_Union >> addTo: aJibProgram [
 	aJibProgram unions
-		at: name zdecode
+		at: name
 		put: self
 ]
 
diff --git a/src/Sail-Jib/Def_Val.class.st b/src/Sail-Jib/Def_Val.class.st
index 344a7d9..ea3f9f9 100644
--- a/src/Sail-Jib/Def_Val.class.st
+++ b/src/Sail-Jib/Def_Val.class.st
@@ -24,7 +24,7 @@ Def_Val class >> inducedParser [
 { #category : #initialization }
 Def_Val >> addTo: aJibProgram [ 
 	aJibProgram types
-		at: id zdecode
+		at: id
 		ifPresent: [ self error: 'cant have mor than one type declaration' ]
 		ifAbsentPut: (JibFunctionType dom: tys cod: ty)
 ]