lput

Help Contents logo Mutators lput
fput Char conversion

logo.lput :x :y


Definition:

to logo.lput :x :y
	if set? :y
	[ 
		local "n
		make "n word "y.# (setmax :y) + 1
		make :n :x
		output :y 
	]
	[ 
		if (list? :y) or (word? :y) or (number? :y)
		[ 
			if list? :x
			[
				output se :y (list :x)
			]
			[
				output se :y :x
			]
		]
		[ 
			error "'Wrong input to LPUT' 
		]
	]
end

Examples:

References:

fput Char conversion