RosettaCodeData/Task/Metaprogramming/PostScript/metaprogramming-1.ps

12 lines
215 B
PostScript

/ift {
4 dict begin
[/.if /.then] let*
count array astore /.stack exch def
/_restore {clear .stack aload pop}.
.stack aload pop .if {
_restore .then
} {
_restore
} ifelse
end}.