Don't zdecode internally in #addTo:

This way spec vars like return are distinguished
shingarov · Aug 14, 2024 · 8045452 · 8045452
1 parent 9d830b4
commit 8045452
Show file tree

Hide file tree

Showing 6 changed files with 6 additions and 6 deletions.
diff --git 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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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)
 ]