このサイトはJavaScriptを使用しています
ホーム
エクスプローラー
lain.church
ヘルプ
登録
サインイン
izaya
/
collapseos
ミラー元
https://github.com/hsoft/collapseos.git
ウォッチ
1
スター
1
フォーク
0
コード
課題
0
リリース
0
Wiki
アクティビティ
ソースを参照
forth: forgot to commit high.fs...
pull/95/head
Virgil Dupras
4年前
親
ac914c3847
コミット
d5b6659507
1個のファイルの変更
、
14行の追加
、
0行の削除
分割表示
差分オプション
統計情報を表示
Patchファイルをダウンロード
Diffファイルをダウンロード
+14
-0
forth/high.fs
+ 14
- 0
forth/high.fs
ファイルの表示
@@ -0,0 +1,14 @@
( Higher level stuff that generally requires all core units )
: ."
LIT
BEGIN
C< DUP ( c c )
( 34 is ASCII for " )
DUP 34 = IF DROP DROP 0 0 THEN
C,
0 = UNTIL
COMPILE (print)
; IMMEDIATE
: ABORT" [COMPILE] ." COMPILE ABORT ; IMMEDIATE
書き込み
プレビュー
読み込み中…
キャンセル
保存