fput

Help Contents logo Mutators fput
item lput

logo.fput :x :y


Definition:

to logo.fput :x :y
	if set? :y
	[ 
		local "n
		make "n word "y.# (setmin :y) - 1
		make :n :x
		output :y 
	]
	[
		if (list? :y) or (word? :y) or (number? :y)
		[
			if list? :x
			[ 
				output se (list :x) :y 
			]
			[ 
				output se :x :y 
			]
		]  
		[ 
			error "'Wrong input to FPUT' 
		]
	]
end

Reference:

item lput