REBOL3 tracker
  0.9.12 beta
Ticket #0001630 User: anonymous

Project:



rss
TypeWish Statustested Date1-Jul-2010 13:14
Versionalpha 99 CategoryMezzanine Submitted byBrianH
PlatformAll Severitytrivial Prioritynormal

Summary INTERN of an any-word!
Description INTERN can work on a block of words, and that is all LOAD need it to do. But other people might want to INTERN a single word. This is a trivial fix, the source of which is below.
Example code
intern: funct [
	"Imports (internalize) words and their values from the lib into the user context."
	data [block! any-word!] "Word or block of words to be added (deeply)"
][
	index: 1 + length? usr: system/contexts/user ; optimization
	data: bind/new :data usr   ; Extend the user context with new words
	resolve/only usr lib index ; Copy only the new values into the user context
	:data
]

Assigned ton/a Fixed inalpha 108 Last Update20-Oct-2010 03:57


Comments
(0002507)
Carl
21-Sep-2010 19:42

Thanks BrianH for providing the code change.
(0002620)
BrianH
20-Oct-2010 03:57

Code optimized and adjusted for new system model by Carl.

Date User Field Action Change
20-Oct-2010 03:57 BrianH Comment : 0002620 Added -
20-Oct-2010 03:57 BrianH Code Modified -
20-Oct-2010 03:57 BrianH Status Modified built => tested
21-Sep-2010 19:42 carl Comment : 0002507 Added -
21-Sep-2010 19:42 carl Fixedin Modified => alpha 108
21-Sep-2010 19:42 carl Status Modified reviewed => built
1-Jul-2010 13:15 BrianH Code Modified -
1-Jul-2010 13:15 BrianH Status Modified submitted => reviewed
1-Jul-2010 13:14 BrianH Ticket Added -