-
Notifications
You must be signed in to change notification settings - Fork 1
/
decrement.fs
49 lines (38 loc) · 1.07 KB
/
decrement.fs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
\ galope/decrement.fs
\ This file is part of Galope
\ http:https://programandala.net/en.program.galope.html
\ Author: Marcos Cruz (programandala.net), 2017.
\ ==============================================================
require ./question-one-minus-store.fs
require ./warning-paren.fs
warnings @ [if]
warning( `decrement` is the deprecated name of `?1-!`)
[then]
synonym decrement ?1-! ( -- )
\ doc{
\
\ decrement ( a -- )
\
\ Decrement the single-cell number at _a_ to, but not beyond, zero.
\
\ NOTE: ``decrement`` is deprecated, replaced by `?1-!`.
\
\ }doc
\ ==============================================================
\ Change log
\ 2013-07-12 Added. Code by Brad Rodriguez:
\ <http:https://camelforth.com/news.php?extend.44.2>.
\
\ 2017-08-17: Update change log layout. Update header. Update source
\ style.
\
\ 2017-10-25: Improve documentation.
\
\ 2017-11-09: Move code to `?1-!`. Deprecate `decrement` and make it a
\ synonym of `?1-!`.
\
\ 2017-11-14: Add a warning about the deprecation.
\
\ 2017-11-15: Update header.
\
\ 2017-11-22: Improve documentation.