Script Library: 1238 scripts
 

push.r

REBOL [ Title: "Push" Date: 3-Jul-2002 Name: 'Push Version: 1.0.0 File: %push.r Author: "Andrew Martin" Purpose: {Inserts a value into a series and returns the series head.} eMail: %Al--Bri--xtra--co--nz Web: http://valley.150m.com library: [ level: 'beginner platform: none type: 'function domain: none tested-under: none support: none license: none see-also: none ] ] Push: func [ "Inserts a value into a series and returns the series head." Stack [series! port! bitset!] "Series at point to insert." Value [any-type!] /Only "The value to insert." ][ head either Only [ insert/only Stack :Value ][ insert Stack :Value ] ]
halt ;; to terminate script if DO'ne from webpage
<< pt.r · pword.r >>
Notes
  • email address(es) have been munged to protect them from spam harvesters. If you are a Library member, you can log on and view this script without the munging.
  • (Al:Bri:xtra:co:nz)