From b56a869eadbd17e1f0a285ae9888485d9de22ca0 Mon Sep 17 00:00:00 2001 From: colin Date: Sat, 1 Jun 2024 17:27:31 -0700 Subject: Fix: bug in wasm instrs fetching script --- fetch-wasm-instrs.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'fetch-wasm-instrs.lisp') diff --git a/fetch-wasm-instrs.lisp b/fetch-wasm-instrs.lisp index 677f857..e2cfaec 100644 --- a/fetch-wasm-instrs.lisp +++ b/fetch-wasm-instrs.lisp @@ -28,7 +28,7 @@ (let ((str (trim-junk str))) (ppcre:split ", ?" - (subseq str #.(length "Instruction(") (- (length str) 2))))) + (subseq str #.(length "Instruction(") (- (length str) 1))))) (defun excise-instructions (source) (let* ((start-pos (+ (length +start-instrs-pattern+) -- cgit v1.2.3