Commit e666b1ca authored by Niels Möller's avatar Niels Möller
Browse files

* src/lsh-writekey.c (make_writekey): Deleted unneeded global

definitions.

Rev: src/lsh-writekey.c:1.11
parent b99d9436
......@@ -380,15 +380,14 @@ DEFINE_COMMAND_SIMPLE(lsh_writekey_options2private_file, a)
/* GABA:
(expr
(name make_writekey)
(globals
(open IO_WRITE_FILE)
(stdin IO_READ_STDIN))
(params
(options object lsh_writekey_options))
(expr
(lambda (backend)
(let ((key (read_sexp (stdin backend))))
(prog1 (print_public options (open backend (options2public_file options))
(let ((key (read_sexp (io_read_stdin backend))))
(prog1 (print_public options
(io_write_file backend
(options2public_file options))
(verifier2public
(signer2verifier
(sexp2signer (options2algorithms options)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment