Content added Content deleted
|
|
Line 647: |
Line 647: |
|
|
|
|
|
: COMMENT-STRIP ( addr len -- addr 'len) -LEADING -COMMENT -TRAILING ; |
|
: COMMENT-STRIP ( addr len -- addr 'len) -LEADING -COMMENT -TRAILING ; |
|
⚫ |
</lang>Tested at the Forth console |
|
|
|
|
⚫ |
< pre>S" apples, pears # and bananas" COMMENT-STRIP TYPE apples, pears ok |
⚫ |
Tested at the Forth console |
|
|
⚫ |
S" apples, pears ; and bananas" COMMENT-STRIP TYPE apples, pears ok</ pre> |
|
|
|
⚫ |
< lang Forth>S" apples, pears # and bananas" COMMENT-STRIP TYPE apples, pears ok |
|
⚫ |
S" apples, pears ; and bananas" COMMENT-STRIP TYPE apples, pears ok</ lang> |
|
|
|
|
|
|
=={{header|Fortran}}== |
|
=={{header|Fortran}}== |