cdo/wipforth
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Use EMIT when printing version number instead of ."

Browse Source
This commit is contained in:
cdo
2026-03-02 19:00:57 +00:00
parent 59e6027739
commit b5c4070daf
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
prelude.f
+5 -5
View File
@@ -248,10 +248,10 @@ CHAR . EMIT
1 CONSTANT VERSION-MINOR 1 CONSTANT VERSION-MINOR
0 CONSTANT VERSION-PATCH 0 CONSTANT VERSION-PATCH
: VERSION-PRINT : PRINT-VERSION
." v" VERSION-MAJOR . CHAR v EMIT VERSION-MAJOR .
." ." VERSION-MINOR . CHAR . EMIT VERSION-MINOR .
." ." VERSION-PATCH . CHAR . EMIT VERSION-PATCH .
; ;
CHAR . EMIT CHAR . EMIT
@@ -265,7 +265,7 @@ CHAR . EMIT
." |__,__/_/ .__(_)___/_//_/" CR ." |__,__/_/ .__(_)___/_//_/" CR
." /_/ " CR ." /_/ " CR
CR CR
." Wipforth " VERSION-PRINT CR ." Wipforth " PRINT-VERSION CR
." Copyright (c) Camden Dixie O'Brien" CR ." Copyright (c) Camden Dixie O'Brien" CR
CR CR
." Wipforth is freely available to use, modify and distribute for personal use" CR ." Wipforth is freely available to use, modify and distribute for personal use" CR