fix argument order to string>memory

diff --git a/native/string.c b/native/string.c
index f3997960913091d6c4995f3bd98d1fe72b653681..9dbeeeb49c3490010f17333829e48ac4174e1e3f 100644 (file)
--- a/native/string.c
+++ b/native/string.c
@@ -118,8 +118,8 @@ INLINE void string_to_memory(F_STRING* s, BYTE* string)
 
 void primitive_string_to_memory(void)
 {
-       F_STRING* str = untag_string(dpop());
        BYTE* address = (BYTE*)unbox_cell();
+       F_STRING* str = untag_string(dpop());
        string_to_memory(str,address);
 }