inform7/inter/Tests/Duplex/_Pairs/BinOut+A.intert

packagetype _plain
packagetype _code

primitive !if val code -> void
primitive !goto lab -> void

package main _plain
	kind K_number int32
	kind K_func function K_number -> K_number
	package R_101_B _code
		local (/main/K_number) x __argument
		code
			.begin
			inv !if
				val (/main/K_number) 1
				code
					inv !goto
						lab .begin
	constant (K_func) R_101 = R_101_B
Moved all trees to a single shared warehouse 2019-07-23 22:07:01 +03:00			`packagetype _plain`
			`packagetype _code`

			`primitive !if val code -> void`
			`primitive !goto lab -> void`

			`package main _plain`
			`kind K_number int32`
			`kind K_func function K_number -> K_number`
			`package R_101_B _code`
Further use of optional kind-checking in Inter 2022-02-15 12:04:22 +02:00			`local (/main/K_number) x __argument`
Moved all trees to a single shared warehouse 2019-07-23 22:07:01 +03:00			`code`
			`.begin`
			`inv !if`
Beginning to make kind-checking optional in Inter 2022-02-15 01:45:34 +02:00			`val (/main/K_number) 1`
Moved all trees to a single shared warehouse 2019-07-23 22:07:01 +03:00			`code`
			`inv !goto`
			`lab .begin`
Began making constant optionally kindless 2022-02-17 01:44:18 +02:00			`constant (K_func) R_101 = R_101_B`