X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=forth.jl.git;a=blobdiff_plain;f=src%2Fforth.jl;h=37c41ecd904585aeb08818976366039ceceaf834;hp=9c62fe6c5af0ae645e3376ddf17381aa2d07e548;hb=b45f369dd68575aa774d2122eaf9b6ec4ec49cb5;hpb=13629255bf805fff75dbc1e553bc806a8ffb4f99

diff --git a/src/forth.jl b/src/forth.jl
index 9c62fe6..37c41ec 100644
--- a/src/forth.jl
+++ b/src/forth.jl
@@ -99,6 +99,10 @@ end
 
 getString(addr::Int64, len::Int64) = AbstractString([Char(c) for c in mem[addr:(addr+len-1)]])
 
+function putString(str::AbstractString, addr::Int64)
+    mem[addr:(addr+length(str)-1)] = [Int64(c) for c in str]
+end
+
 function putString(str::AbstractString, addr::Int64, maxLen::Int64)
     len = min(length(str), maxLen)
     mem[addr:(addr+len-1)] = [Int64(c) for c in str]